*Mitigating Water Pollution: Tourists' Propensity to Pay for Eco-Friendly Toilets in the Sagarmatha National Park, Mt. Everest Area, Nepal
*Hall, Steven R., Kirsten Nicholson, and Misa Nishikawa 2024
*https://doi.org/10.1007/s10668-024-05022-5

*STATA Do File for Replicating the Resuls 
*Tables 1-5, Appendices 1-2

gen Qcontrol=.
replace Qcontrol=1 if questionnaire==1
replace Qcontrol=0 if questionnaire~=1
gen Qeconomy=.
replace Qeconomy=1 if questionnaire==2
replace Qeconomy=0 if questionnaire~=2
gen Qcompost=.
replace Qcompost=1 if questionnaire==3
replace Qcompost=0 if questionnaire~=3
gen Qclean=.
replace Qclean=1 if questionnaire==4
replace Qclean=0 if questionnaire~=4
gen Qgvt=.
replace Qgvt=1 if questionnaire==5
replace Qgvt=0 if questionnaire~=5

gen income1=.
replace income1=1 if income==1
replace income1=0 if income~=1
gen income2=.
replace income2=1 if income==2
replace income2=0 if income~=2
gen income3=.
replace income3=1 if income==3
replace income3=0 if income~=3
gen income4=.
replace income4=1 if income==4
replace income4=0 if income~=4
gen income5=.
replace income5=1 if income==5
replace income5=0 if income~=5
gen income6=.
replace income6=1 if income==6
replace income6=0 if income~=6

gen India=.
replace India=0 if nationality~=9
replace India=1 if nationality==9
gen UK=.
replace UK=0 if nationality~=5
replace UK=1 if nationality==5
gen US=.
replace US=0 if nationality~=11
replace US=1 if nationality==11

*ANOVA Table 4
gen toiletdollar2=.
replace toiletdollar2=toiletdollar
replace toiletdollar2=0 if toiletyn==0
oneway toiletdollar2 questionnaire, tabulate

*Table 2
tab toiletyn questionnaire, column
tab toiletyn questionnaire, cell chi2 

tab toiletdollar2
tabulate questionnaire
tabulate female

*Appendix 1
tabulate nationality
sum toiletdollar2
sum age

tabulate nature
tabulate adventure
tabulate culture

*Table 3
logistic toiletyn Qeconomy Qcompost Qclean
fitstat 
estimates store modela1
logistic toiletyn Qeconomy Qcompost Qclean female age
fitstat 
estimates store modela2
logistic toiletyn Qeconomy Qcompost Qclean female age educ income2 income3 income4 income5 income6 India UK US
fitstat
estimates store modela3

*Appendix 2
regress toiletdollar2 Qeconomy Qcompost Qclean, vce(hc3)
estat hettest
estimates store modelb1
regress toiletdollar2 Qeconomy Qcompost Qclean female age, vce(hc3)
estimates store modelb2
regress toiletdollar2 Qeconomy Qcompost Qclean female age educ income2 income3 income4 income5 income6 India UK US, vce(hc3)
estat hettest, rhs
estimates store modelb3

*Table 5
generate toiletdollar3=.
replace toiletdollar3=0   if toiletdollar2==0
replace toiletdollar3=1 if toiletdollar2==0.5
replace toiletdollar3=2   if toiletdollar2==1
replace toiletdollar3=3 if toiletdollar2==1.5
replace toiletdollar3=4   if toiletdollar2==2
ologit toiletdollar3 Qeconomy Qcompost Qclean 
fitstat
estimates store modelc1
ologit toiletdollar3 Qeconomy Qcompost Qclean female age
fitstat
estimates store modelc2
ologit toiletdollar3 Qeconomy Qcompost Qclean female age educ income2 income3 income4 income5 income6 India UK US
fitstat
estimates store modelc3


*******END


